100 POKE53280,0:POKE646,15
110 REM
120 REM   ZEILENMARKER
130 REM       BY
140 REM    ALEXANDER
150 REM      PIEL
160 REM
170 FORI=49156TO49266:READA:POKEI,A:NEXT
180 GOTO391
190 DATA 120,169, 35,141, 20,  3,169
200 DATA 192,141, 21,  3,173, 17,208
210 DATA  41,127,141, 17,208,169,  0
220 DATA 141, 18,208,169,129,141, 26
230 DATA 208, 88, 96,173, 25,208,141
240 DATA  25,208, 48,  7,173, 13,220
250 DATA  88, 76, 49,234,165,214,197
260 DATA   2,240, 21,133,  2,165,214
270 DATA 141,  0,192, 24, 42, 42, 42
280 DATA 105, 49,141,  0,192,105,  9
290 DATA 141,  1,192,173, 18,208,205
300 DATA   1,192,176, 15,173,  2,192
310 DATA 141, 33,208,173,  1,192,141
320 DATA  18,208, 76,112,192,173,  3
330 DATA 192,141, 33,208,173,  0,192
340 DATA 141, 18,208, 76,188,254
360 REM         DEMO
370 POKE49154,1:POKE49155,0 : REM           BALKENFARBE/HINTERGRUNDFARBE
380 SYS49156   : REM EINSCHALTEN
390 RETURN
391 PRINT"[147]   EIGENTLICH (NEHMEN WIR MAL AN.....)"
392 PRINT"   IST DIESE ROUTINE WOHL DAZU GEDACHT,"
393 PRINT"   DAS ARBEITEN AN EINEM BASIC-LISTING"
394 PRINT" 'ETWAS' ZU VEREINFACHEN, DA JEDE ZEILE"
395 PRINT"           'MARKIERT' WIRD."
396 PRINT"  ABER WIR SIND MAL WIEDER DER MEINUNG,"
397 PRINT"  DASS DU DAMIT AUCH NOCH ETWAS ANDERES"
398 PRINT"  ANFANGEN KANNST. - WAS, DAS SAGEN WIR"
399 PRINT"           SOFORT NACH TASTENDRUCK!":POKE109,0:WAIT198,1:POKE198,0
400 PRINT"[147]MIT DIESEM KLEINEN PROGRAMM, DAS DU":PRINT"LEICHT IN DEINE EIGENEN PRO";
410 PRINT"GRAMME EIN-  BINDEN KANNST, KANNST DU ABFRAGEN ETC."
420 PRINT"MIT FARBBALKEN UNTERLEGEN:":FORT=1TO5000:NEXT:GOSUB360
430 INPUT"BITTE RETURN DRUECKEN ";TA$
440 PRINT"DAS PROGRAMM BEGINNT MIT DER ZEILE 170,"
450 PRINT"WOBEI DU DIE SPRUNGADRESSEN ETC. NATUER-LICH DEINEM PROGRAMM ANPASSEN";
460 PRINT" KANNST,":PRINT"UND ENDET MIT DER ZEILE 340."
470 PRINT"DER BALKEN ERSCHEINT STETS AN DER       AKTUELLEN CURSOR-POSITION:"
480 PRINT"BITTE EINE TASTE DRUECKEN!"
490 PRINT"[145][145]":POKE198,0:WAIT198,1:POKE198,0
500 PRINT"[147]DER BALKEN VERSCHWINDET, WENN DU DIE    BALKENFARBE AUF DIE HINTER";
510 PRINT"GRUNDFARBE":PRINT"SETZT.":FORT=1TO5000:NEXT:POKE49154,0
520 FORT=1TO2000:NEXT:PRINT"BITTE EINE TASTE DRUECKEN!"
530 PRINT"[145][145]":POKE49154,7:POKE198,0:WAIT198,1:POKE198,0:POKE49154,6
540 PRINT"[147]":PRINT"BITTE WAEHLEN SIE MITTELS CURSOR/RETURN"
550 PRINT"      1   SOFORTIGES ENDE (RESET)
560 [153]"      2   EINFACHES ENDE ('READY')"
570 [153]"      3   PROGRAMM LISTEN":N[178]10
580 [139]N[177]12[167]N[178]10
590 [139]N[179]10[167]N[178]12
600 [151]781,N:[151]782,6:[151]204,0:[158]65520
610 [161]EI$:[139]EI$[178]""[167]610
620 EI[178][198](EI$):[139]EI[179][177]13[175]EI[179][177]17[175]EI[179][177]145[167]610
630 [139]EI[178]17[167]N[178]N[170]1:[137]580
640 [139]EI[178]145[167]N[178]N[171]1:[137]580
650 [139]EI[178]13[167][145]N[171]9[137]660,670,680
660 [158]64760
670 [153]"":[128]
680 [151]204,128:[153]"LOAD":[129]T[178]1[164]10:[153]"":[129]TT[178]1[164]100:[130]:[130]
690 [129]T[178]1[164]2000:[130]:[153]"WIE'S GEHT STEHT IN DEN PROGRAMMZEILEN"
700 [153]"             370  UND  380 !":[153]"ONON"
710 [129]T[178]1[164]3000:[130]:[151]49154,0:[155]170[171]340